home *** CD-ROM | disk | FTP | other *** search
/ Beginning Mac Programming / Beginning Mac Programming.bin / pc / Open Me for REALbasic 3 / REALbasic 3.2 / Goodies / Development Tools / XCMDs and XFCNs / Socket and Serial / HyperHTTP 1.9 / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1999-01-14  |  6.9 KB  |  50 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.9</name>
  5.     <id>-1</id>
  6.     <cardCount>30</cardCount>
  7.     <cardID>5913</cardID>
  8.     <listID>13024</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>function cleanUpTXT str
  17. put " " into repl_str
  18. put tab into srch_str
  19. put replacetxt (str, srch_str, repl_str) into str
  20. put linefeed into srch_str
  21. put replacetxt (str, srch_str, repl_str) into str
  22. put "  " into srch_str
  23. repeat
  24. put replacetxt (str, srch_str, repl_str) into str
  25. get search (str, srch_str)
  26. if it is empty then exit repeat
  27. end repeat
  28. put return into repl_str
  29. put return & " " into srch_str
  30. put replacetxt (str, srch_str, repl_str) into str
  31. put " " & return into srch_str
  32. put replacetxt (str, srch_str, repl_str) into str
  33. put return & return & return into srch_str
  34. put return & return into repl_str
  35. repeat
  36. put replacetxt (str, srch_str, repl_str) into str
  37. get search (str, srch_str)
  38. if it is empty then exit repeat
  39. end repeat
  40. return str
  41. end cleanUpTXT
  42.  
  43. function adjustURL URLs, URL_Name
  44. put empty into tmp
  45. set the itemDelimiter to "/"
  46. put "http://" & third item of URL_Name into HTTP_Header
  47. delete item 1 of URL_Name
  48. delete item 1 of URL_Name
  49. delete item 1 of URL_Name
  50. put URL_Name into URL_Path
  51. put empty into tmpURLs
  52. set the itemDelimiter to "?"
  53. repeat
  54. get search(URLs, "?")
  55. if it is empty then exit repeat
  56. put first word of it into lnNmbr
  57. if second item of line lnNmbr of URLs is not empty then
  58. put return & second item of line lnNmbr of URLs after URLs
  59. delete second item of line lnNmbr of URLs
  60. else
  61. delete last char of line lnNmbr of URLs
  62. end if
  63. end repeat
  64. set the itemDelimiter to "#"
  65. repeat
  66. get search(URLs, "#")
  67. if it is empty then exit repeat
  68. put first word of it into lnNmbr
  69. if last item of line lnNmbr of URLs is not empty then
  70. delete last item of line lnNmbr of URLs
  71. else
  72. delete last char of line lnNmbr of URLs
  73. end if
  74. end repeat
  75. put URLs into tmpURLs
  76. put empty into URLs
  77. set the itemDelimiter to "."
  78. repeat with i = 1 to number of lines of tmpURLs
  79. put last item of line i of tmpURLs into last_item
  80. if last char of last_item is "/" OR last_item is in "html" then
  81. get searchL(URLs, line i of tmpURLs)
  82. if it is empty then
  83. put editURL (line i of tmpURLs, HTTP_Header, URL_Path) into tmp
  84. get searchL(URLs, tmp)
  85. if it is empty then put tmp & return after URLs
  86. end if
  87. end if
  88. end repeat
  89. delete last char of URLs
  90. set the itemdelimiter to ","
  91. sort lines of URLs
  92. if length of URLs > 29999 then
  93. put char 1 to 29999 of URLs into URLs
  94. delete last line of URLs
  95. end if
  96. return URLs
  97. end adjustURL
  98.  
  99. function editURL wrkLine, HTTP_Header, URL_Path
  100. get searchL (wrkLine, "http://")
  101. if third word of it is 1 then return wrkLine
  102. get searchL (wrkLine, "http:/")
  103. if third word of it is 1 then
  104. delete char 1 to 6 of wrkLine
  105. return HTTP_Header & "/" & wrkLine
  106. end if
  107. get searchL (wrkLine, "http:")
  108. if third word of it is 1 then
  109. delete char 1 to 5 of wrkLine
  110. return HTTP_Header & "/" & URL_Path & wrkLine
  111. end if
  112. if char 1 of wrkLine is "/" then return HTTP_Header & wrkLine
  113. put the itemDelimiter into tmpItem
  114. set the itemDelimiter to "."
  115. if the last item of URL_Path is in "html" then
  116. set the itemDelimiter to "/"
  117. delete last item of URL_Path
  118. if URL_Path is not empty then put "/" after URL_Path
  119. end if
  120. if char 1 of wrkLine is "." AND char 2 of wrkLine is "." then
  121. delete char 1 to 2 of wrkLine
  122. if the number of items of URL_Path > 1 then delete last item of URL_Path
  123. if first char of wrkLine is "/" then delete first char of wrkLine
  124. set the itemDelimiter to tmpItem
  125. return HTTP_Header & "/" & URL_Path & wrkLine
  126. end if
  127. set the itemDelimiter to tmpItem
  128.  
  129. if char 1 of wrkLine is "." then
  130. delete char 1 of wrkLine
  131. if first char of wrkLine is "/" then delete first char of wrkLine
  132. return HTTP_Header & "/" & URL_Path & wrkLine
  133. end if
  134. return HTTP_Header & "/" & URL_Path & wrkLine
  135. end editURL
  136.  
  137.  
  138. on HyperHTTP_Idle
  139. Global HyperHTTP
  140. if the cmdKey is down AND the shiftKey is down then
  141. put "Cancel" into HyperHTTP
  142. exit to HyperCard
  143. else
  144. put empty into HyperHTTP
  145. end if
  146. end HyperHTTP_Idle</script>
  147.     <background id="2801" file="background_2801.xml" name="" />
  148.     <background id="4920" file="background_4920.xml" name="" />
  149.     <card id="5913" file="card_5913.xml" marked="false" name="" owner="2801" />
  150.     <card id="11661" file="card_11661.xml" marked="false" name="" owner="2801" />
  151.     <card id="4136" file="card_4136.xml" marked="false" name="ReplaceTxt" owner="2801" />
  152.     <card id="10208" file="card_10208.xml" marked="false" name="ReplaceTxtL" owner="2801" />
  153.     <card id="4731" file="card_4731.xml" marked="false" name="search" owner="2801" />
  154.     <card id="3679" file="card_3679.xml" marked="false" name="SearchL" owner="2801" />
  155.     <card id="8239" file="card_8239.xml" marked="false" name="FoundinText" owner="2801" />
  156.     <card id="9722" file="card_9722.xml" marked="false" name="FoundinTextL" owner="2801" />
  157.     <card id="8058" file="card_8058.xml" marked="false" name="popUpMenu" owner="2801" />
  158.     <card id="6228" file="card_6228.xml" marked="false" name="HTMLtoTxt" owner="2801" />
  159.     <card id="7731" file="card_7731.xml" marked="false" name="HTMLtoURL" owner="2801" />
  160.     <card id="8893" file="card_8893.xml" marked="false" name="CharToNumHTML" owner="2801" />
  161.     <card id="2457" file="card_2457.xml" marked="false" name="NumToCharHTML" owner="2801" />
  162.     <card id="12337" file="card_12337.xml" marked="false" name="ICScramble" owner="2801" />
  163.     <card id="9420" file="card_9420.xml" marked="false" name="ChangeFileType" owner="2801" />
  164.     <card id="10794" file="card_10794.xml" marked="false" name="DeltaVector" owner="2801" />
  165.     <card id="10371" file="card_10371.xml" marked="false" name="DotProduct" owner="2801" />
  166.     <card id="7594" file="card_7594.xml" marked="false" name="VSum" owner="2801" />
  167.     <card id="9030" file="card_9030.xml" marked="false" name="VNorm" owner="2801" />
  168.     <card id="11309" file="card_11309.xml" marked="false" name="GetICPref" owner="2801" />
  169.     <card id="3008" file="card_3008.xml" marked="false" name="getMyIP" owner="2801" />
  170.     <card id="4441" file="card_4441.xml" marked="false" name="ping" owner="2801" />
  171.     <card id="2233" file="card_2233.xml" marked="false" name="getURL" owner="2801" />
  172.     <card id="9973" file="card_9973.xml" marked="false" name="GetHTTP" owner="2801" />
  173.     <card id="7126" file="card_7126.xml" marked="false" name="Finger" owner="2801" />
  174.     <card id="13717" file="card_13717.xml" marked="false" name="SendMail" owner="2801" />
  175.     <card id="14638" file="card_14638.xml" marked="false" name="GetPop3Mail" owner="2801" />
  176.     <card id="13905" file="card_13905.xml" marked="false" name="GetPop3MailList" owner="2801" />
  177.     <card id="5293" file="card_5293.xml" marked="false" name="http://members.aol.com/apreal/" owner="4920" />
  178.     <card id="6431" file="card_6431.xml" marked="false" name="http://www.macosrumors.com/" owner="4920" />
  179. </stack>
  180.